home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / BBS / MUBBS / MUBBS112.CPT / MUBBS112 / MUBBS V1.1.2.cpt / MUBBS V1.1.2 / Utility Applications / Nate's Sysop 2.0 / stack_-1.xml < prev   
Extensible Markup Language  |  1992-02-22  |  2KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2930</cardID>
  8.     <listID>2175</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>On List dir,path,Indentput SetFileType(theFileName,theType,theCreator) into firstFailput RenameFile (theFileName,theNewName) into secondFail-- put firstFail && secondFailput GetFileType(theFileName) into FileThingsput (item one of FileThings) into cd fld "type"put (item two of FileThings) into cd fld "creator"-- dir is the directory to search, path is the path name to show-- indent is for cosmetic only--  first get all files onlyput files(dir,"",0) into tempput 1 into i-- and show file namesrepeat until line i of temp is emptyput indent&line i of temp&return after card field "files"add 1 to iend repeat-- Now get all sub directoriesPut files(dir,"",2) into Moreput 1 into irepeat until line i of more is empty-- Show directory nameput indent&"*"&line i of more&return after card field "files"-- And get its filesList dir&":"&line i of more, line i of more, indent&"-"add 1 to iend repeatend list</script>
  17.     <background id="2792" file="background_2792.xml" name="" />
  18.     <card id="2930" file="card_2930.xml" marked="false" name="" owner="2792" />
  19. </stack>
  20.